home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software of the Month Club 1998 March
/
Software of the Month Club 1998 March.iso
/
pc
/
dos
/
biz
/
astreg
/
prtdrvs.mdx
(
.txt
)
< prev
next >
Wrap
dBASE Multiple Index
|
1996-08-27
|
14KB
|
259 lines
PRTDRVS
PROCEDURE TEMPLATE && Main program
*-----------------------------------------------------------------
* NAME
* C:\CENTWISE\CHKWRT\TEMPLATE.PRG - Main program for form.
*-----------------------------------------------------------------
PRIVATE lTalk, lVoid, cOldProc, cFormRun, cDispMode, cNewMode
IF SET( 'TALK' ) = 'ON'
SET TALK OFF
lTalk = .T.
ELSE
lTalk = .F.
ENDIF
*----------------------------------------------
*-- Ma
PRTTYPE
gram is part of a linked exe
*-- you must either include FORMRUN.DBO in your
*-- Project file or make sure that FORMRUN.DBO
*-- is in the same directory as your exe file.
*-- Please note that the Automatic Link feature
*-- doesn't notice FORMRUN.DBO because of the
*-- macro expansion for the SET PROCEDURE.
*----------------------------------------------
cOldProc = SET( 'PROCEDURE' )
IF [dBASE Compiler] $ VERSION(0)
SET PROCEDURE TO FORMRUN
ELSE
cFormRun = HOME() + 'FORMRUN'
SET PROCEDURE TO ( cFormRun )
ENDIF
#include "TEMPLATE.DFM"
IF TYPE("TEMPLATE.SetDisp") = "L" .AND. TYPE("TEMPLATE.DispMode") = "C"
IF TEMPLATE.SetDisp
cDispMode = SET('DISPLAY')
cNewMode = TEMPLATE.DispMode
SET DISPLAY TO &cNewMode
TEMPLATE.Height = TEMPLATE.nHeight
ENDIF
ENDIF
*-------------------------------------------
*-- If ModalForm is missing from .DFM set it
*-------------------------------------------
IF TYPE( 'TEMPLATE.ModalForm' ) # 'L'
TEMPLATE.ModalForm = .T. && Assume modal form if not set
ENDIF
*-----------------------------------
*-- Open the form based on ModalForm
*-----------------------------------
IF TEMPLATE.ModalForm
*-----------------------------------
*-- Use Readmodal() to open the form
*-----------------------------------
TEMPLATE.Action = .F. && Set .T. by OKHAND before closing
lVoid = TEMPLATE.ReadModal()
IF TEMPLATE.Action
PRTTYPE
APPLE LASERWRITER
XEROX CORP 4045 LASER CP
PRTTYPE
APPLE LASERWRITER
ASCII
BROTHER HR-15, HR-25
C.ITOH DIGITAL PRODUCTS,INC. 715
C.ITOH DIGITAL PRODUCTS,INC. 815(P351 MODEL)
C.ITOH DIGITAL PRODUCTS,INC.PROWRITER JR
CANON BJ-130
CANON LBP-4
CANON-LBP-8 MARK III
DATA PRODUCTS SPG-8050, SPG-8070
DIABLO (XEROX) 630 API
DICONIX 150, 150 PLUS
EPSON APEX 80
EPSON DOT MATRIX FAMILY
EPSON DX-10
EPSON DX-20, DX-35
EPSON EPI-4000,EPI-6000 (LASER JET II EMULATION)
EPSON EX-800,EX-1000
EPSON FX-100,FX-100 PLUS
EPSON FX-1050
EPSON FX-185
EPSON FX-286E
EPSON FX-80,FX-80 PLUS
EPSON FX-85
EPSON FX-850
EPSON FX-86E
EPSON GQ-3500
EPSON JX-80
EPSON JX-80 WITH 8177
EPSON L-1000 ACTIONPRINTER
EPSON L-750 ACTIONPRINTER
EPSON LQ-1000
EPSON LQ-1010
EPSON LQ-1050
EPSON LQ-1500
EPSON LQ-2500
EPSON LQ-2550
EPSON LQ-500
EPSON LQ-510
EPSON LQ-800
EPSON LQ-850
EPSON LQ-950
EPSON LX-80, LX-810, LX-90
EPSON MX-80, MX-100
EPSON MX-80, MX-100 WITH GRAFTAX PLU
EPSON RX-100, FX-100, FX-100 PLUS
EPSON RX-80, FX-80, FX-80 PLUS
EPSON RX-80/FX-80 WITH 8177
EPSON SQ-1500
EPSON SQ-2000
EPSON T-1000 ACTIONPRINTER
EPSON T-750 ACTIONPRINTER
FACIT 4512
GENERIC - ANY PRINTER NOT LISTED
HP DESKJET (HP2276)
HP DESKJET 500
HP DESKJET PLUS
HP HPDESKJET FAMILY
HP LASERJET JII/III FAMILY
HP LASERJET LJ 6 LPI
HP LASERJET LJ 6.5 LPI
HP LASERJET LJ LAND 6 LPI
HP LASERJET LJ LAND 6.5 LPI
HP LASERJET LJII 6 LPI,LJIID1 6 LPI (1-SIDE)
HP LASERJET LJII 6.5 LPI,LJIID1 6.5 LPI (1-SIDE)
HP LASERJET LJII LAND 6 LPI
HP LASERJET LJIID1 6 LPI 1-SIDE
HP LASERJET LJIID1 6.5 LPI (1-SIDE)
HP LASERJET LJIID1 LA 6 LPI 1-SIDE LAND
HP LASERJET LJIID2 6 LPI (2-SIDE)
HP LASERJET LJIID2 6.5 LPI (2-SIDE)
HP LASERJET LJIII 6 LPI
HP LASERJET LJIII 6.5 LPI
HP LASERJET LJIII LAND 6 LPI
HP LASERJET LJIIID1 6 LPI 1-SIDE
HP LASERJET LJIIID1 6.5 LPI 1-SIDE
HP LASERJET LJIIID1 LA 6 LPI 1-SIDE LAND
HP LASERJET LJIIID2 6 LPI 2-SIDE
HP LASERJET LJIIID2 6.5 LPI 2-SIDE
HP LASERJET LJIIIDSI1 6 LPI 1-SIDE
HP LASERJET LJIIIDSI1 6.5 LPI 1-SIDE
HP LASERJET LJIIIDSI1 LA 6 LPI 1-SIDE LAND
HP LASERJET LJIIIDSI2 6 LPI 2-SIDE
HP LASERJET LJIIIDSI2 6.5 LPI 2-SIDE
HP LASERJET LJIIIP 6 LPI
HP LASERJET LJIIIP 6.5 LPI
HP LASERJET LJIIIP LAND 6 LPI
HP LASERJET LJIIISI (POSTSCRIPT)
HP LASERJET LJIIISI 6 LPI
HP LASERJET LJIIISI 6.5 LPI
HP LASERJET LJIIISI LAND 6 LPI
HP LASERJET LJIIP 6 LPI
HP LASERJET LJIIP 6.5 LPI
HP LASERJET LJIIP LAND 6 LPI
HP PAINTJET
HP PAINTJET
HP PAINTJET XL
HP QUIETJET
HP QUIETJET
HP THINKJET
HP THINKJET
IBM COLOR JETPRINTER
IBM EXECJET 4072
IBM GRAPHICS PRINTER
IBM LASERPRINTER 4019
IBM LASERPRINTER E
IBM LASERPRINTER FAMILY
IBM PROPRINTER
IBM PROPRINTER II
IBM PROPRINTER III
IBM PROPRINTER XL
IBM QUIETWRITER (MODEL 1)
IBM QUIETWRITER (MODEL 2)
IBM QUIETWRITER (MODEL 3)
IBM WHEELPRINTER
KODAK 150, 150 PLUS (DICONIX)
NEC PINWRITER P2, P3
NEC PINWRITER P5 (A)
NEC SPINWRITER 3550
NEC SPINWRITER 7710
NEC SPINWRITER 8850
OKIDATA LASERLINE 6 (LJ II EMULATION)
OKIDATA MICROLINE 182, 183
OKIDATA MICROLINE 182/183 WITH PLUG 'N PLAY
OKIDATA MICROLINE 192, 193
OKIDATA MICROLINE 393 (EPSON EMULATION)
OKIDATA MICROLINE 82A/83A WITH OKIGRAPH
OKIDATA MICROLINE 84
OKIDATA MICROLINE 92, 93
OKIDATA MICROLINE 92/93/192/193 WITH PLUG 'N PLAY
OKIDATA MICROLINE FAMILY (OKIDATA MODE)
OKIDATA OKIMATE-20
OKIDATA PACEMARK 2350, 2410
PANASONIC KX-P1080I
PANASONIC KX-P1091I
PANASONIC KX-P1092I
PANASONIC KX-P1124
PANASONIC KX-P1180
PANASONIC KX-P1191
PANASONIC KX-P1195
PANASONIC KX-P1524
PANASONIC KX-P1592
PANASONIC KX-P1595
PANASONIC KX-P1624
PANASONIC KX-P1695
PANASONIC KX-P4420 LASERPARTNER (LJ II MO)
PANASONIC KX-P4450 LASERPARTNER (LJ II MO)
POSTSCRIPT STANDARD
QUME SPRINT 11 PLUS, LETTERPRO 20
RICOH 6000 LANDSCAPE ORIENT
RICOH 6000 PORTRAIT ORIENT
STAR NX-10
STAR NX-1000
STAR NX-15
STAR NX-1500
STAR NX-2410
STAR NX-2415
STAR XR-1500
TANDY CORP CGP-220
TEXAS INSTRUMENTS, INC 855,865
TOSHIBA P321, P341, P351
TOSHIBA PAGELASER/2
XEROX CORP (DIABLO) 630 API
XEROX CORP 4045 LASER CP
PANASONIC KX-P4450 LASERPARTNER (LJ II MO)
POSTSCRIPT STANDARD
QUME SPRINT 11 PLUS, LETTERPRO 20
RICOH 6000 LANDSCAPE ORIENT
RICOH 6000 PORTRAIT ORIENT
STAR NX-10
STAR NX-1000
STAR NX-15
STAR NX-1500
STAR NX-2410
STAR NX-2415
STAR XR-1500
TANDY CORP CGP-220
TEXAS INSTRUMENTS, INC 855,865
TOSHIBA P321, P341, P351
TOSHIBA PAGELASER/2
EPSON EX-800,EX-1000
EPSON LQ-2500
GENERIC - ANY PRINTER NOT LISTED
HP LASERJET LJIII 6 LPI
HP LASERJET LJIIISI 6.5 LPI
IBM PROPRINTER
OKIDATA MICROLINE 393 (EPSON EMULATION)
PANASONIC KX-P1624
TOSHIBA PAGELASER/2
CEDITFLD
CDIRSAVE
CFILEEXT
CTYPEFILE
NDOTPOS
CHKHNDCL
CHKTENRW
CHKTENCL
CHKUNTRW